(apropos): Handle aliases for undefined functions.

diff --git a/lisp/apropos.el b/lisp/apropos.el
index 90fa4309f1bd6c257618739f4e91f1eb71574a15..f726029c7ead57751047856506840c09ec2e7428 100644 (file)
--- a/lisp/apropos.el
+++ b/lisp/apropos.el
@@ -227,7 +227,10 @@ Returns list of symbols and documentation found."
         (setcar p (list
                    (setq symbol (car p))
                    (when (fboundp symbol)
-                     (if (setq doc (documentation symbol t))
+                      (if (setq doc (condition-case nil
+                                        (documentation symbol t)
+                                      (void-function
+                                       "(alias for undefined function)")))
                          (substring doc 0 (string-match "\n" doc))
                        "(not documented)"))
                    (when (boundp symbol)